home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00024_Script_Rollover Fader < prev    next >
Text File  |  1997-09-30  |  1KB  |  41 lines
  1. -- Rollover -> Fade color
  2.  
  3.  
  4.  
  5.  
  6.  
  7. Property pOff,pOn,pSpeed
  8.  
  9. on getPropertyDescriptionList
  10.    if not alphamaniacCheck(the currentSpriteNum) then exit
  11.   
  12.  set pList=[:]
  13.   addProp pList,#pOff,[format:#integer,comment:"Off Saturation %:",¼
  14.                          Default:0, range:[min:-255,max:255]]
  15.   addProp pList,#pOn,[format:#integer,comment:"On Saturation %:",¼
  16.                        Default:0, range:[min:-255,max:255]]
  17.   addProp pList,#pSpeed,[format:#integer,comment:"Frames:", Default:12]
  18.   return pList
  19. end
  20.  
  21. on beginSprite me
  22.   set s=the spriteNum of me
  23.   if not alphaManiac(s) then exit
  24.   
  25.   hsb(sprite s,[satShift:pOff])
  26. end
  27.  
  28. on mouseEnter me
  29.   set s=the spriteNum of me
  30.   if not alphaManiac(s) then exit
  31.   
  32.   hsb(sprite s,[animMode:#Range,numFrames:pSpeed, startSat:pOff, endSat:pOn])
  33. end
  34.  
  35. on mouseLeave me
  36.   set s=the spriteNum of me
  37.   if not alphaManiac(s) then exit
  38.   
  39.   hsb(sprite s,[animMode:#Range,numFrames:pSpeed, startSat:pOn, endSat:pOff])
  40. end
  41.